From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 27 Apr 2025 07:08:38 +0000 (+0300)
Subject: Avoid infinite recursion under 'rectangle-mark-mode'
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~123
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=d394cd73d1b21bd1f6d1679c2fcbb10433477092;p=emacs.git

Avoid infinite recursion under 'rectangle-mark-mode'

* lisp/rect.el (rectangle--region-beginning)
(rectangle--region-end): Avoid infinite recursion.  Patch by Alcor
<alcor@tilde.club>.  Do not merge to master.  (Bug#77973)
---

diff --git a/lisp/rect.el b/lisp/rect.el
index c82bca8100c..b6dc9548bb1 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -766,7 +766,7 @@ Ignores `line-move-visual'."
    ((not rectangle-mark-mode)
     (funcall orig))
    (t
-    (apply #'min (mapcar #'car (region-bounds))))))
+    (apply #'min (mapcar #'car (let (rectangle-mark-mode) (region-bounds)))))))
 
 (defun rectangle--region-end (orig)
   "Like `region-end' but supports rectangular regions."
@@ -774,7 +774,7 @@ Ignores `line-move-visual'."
    ((not rectangle-mark-mode)
     (funcall orig))
    (t
-    (apply #'max (mapcar #'cdr (region-bounds))))))
+    (apply #'max (mapcar #'cdr (let (rectangle-mark-mode) (region-bounds)))))))
 
 (defun rectangle--extract-region (orig &optional delete)
   (cond